﻿Public Class Address

    Sub New()
        Me.New("", "", "", "")
    End Sub

    Property id As Long

    Property street1 As String
    Property street2 As String
    Property city As String
    Property state As String
    Property zip As String

    Property type As String


    Sub New(s1 As String, city As String, state As String, zip As String)
        Me.New(-1, s1, "", city, state, zip, "HM")
    End Sub

    Sub New(id As Long, s1 As String, s2 As String, city As String, state As String, zip As String, type As String)
        Me.id = id
        Me.street1 = s1
        Me.street2 = s2
        Me.city = city
        Me.state = state
        Me.zip = zip
        Me.type = type
    End Sub

    Function isNew() As Boolean
        Return Me.id = -1
    End Function

End Class
